home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / drum machine (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  13KB  |  396 lines
  1. 10 REM     DRUM MACHINE 64
  2. 20 REM    BY THOMAS LANGENS
  3. 30 REM   SCHEVENHOFER WEG 44D
  4. 40 REM     5600 WUPPERTAL 1
  5. 50 REM    TEL: (02053) 40152
  6. 60 REM
  7. 100 PRINT"[147] EINEN MOMENT BITTE !"
  8. 110 POKE53281,15:POKE53280,2
  9. 120 FORH=0TO7:READDR$(H):NEXT
  10. 130 ZA=1:Z=1:DIMT(32,100)
  11. 140 FA=54272:P1=1548:P2=1508
  12. 150 GOSUB3500
  13. 160 GOSUB1510:POKE198,0
  14. 170 GETA$:IFA$=""THEN170
  15. 180 IFA$="[133]"THEN1910
  16. 190 IFA$="[134]"THEN2330
  17. 200 IFA$="[135]"THEN2860
  18. 210 IFA$="[136]"THEN3330
  19. 220 GOTO170
  20. 230 GETA$:IFA$<>""THEN230
  21. 240 GETA$:IFA$=""THEN240
  22. 250 RETURN
  23. 260 PRINT"[147] WELCHE SEQUENZ SOLL EINGESTELLT WERDEN"
  24. 270 PRINT" DIE SEQUENZ NR.  ";ZA;:INPUT"[157][157][157][157]";A$
  25. 280 IFA$="*"THEN160
  26. 290 Z=VAL(A$):IFZ>ZATHENZA=Z
  27. 300 IFZ>100THENPRINT"UNERLAUBTER WERT (1-100)":PRINT"[145][145][145][145]";:GOTO270
  28. 310 RETURN
  29. 320 PRINT"[147][155][146]                        [213]";
  30. 330 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][201][155]            ";
  31. 340 PRINT"              [221]F1=SEQUENZ";
  32. 350 PRINT"  [221]  [155]   [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  33. 360 PRINT"[192][201][155]  [221]F3=MENUE    [221]  [155]   [221][155] ";
  34. 370 PRINT"[129]EINSTELLEN DER[155]  [221][155]  [202][192][192][192][192][192]";
  35. 380 PRINT"[192][192][192][192][192][192][192][203]  [155]   [221][155]           ";
  36. 390 PRINT"      [221][155]                  ";
  37. 400 PRINT"[155]   [221][155] [129]"DR$(I)           "  [221][155]   ";
  38. 410 PRINT"               [155]   [202][192][192][192][192][192][192]";
  39. 420 PRINT"[192][192][192][192][192][192][192][192][192][192][192][203][155]             ";
  40. 430 PRINT"     [155]                    ";
  41. 440 PRINT"                       [213][192]";
  42. 450 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  43. 460 PRINT"[192][192][192][192][192][192][192][201][155]     [221][155]          1";
  44. 470 PRINT"[155]         2[155]         3[155]  [221][155]  ";
  45. 480 PRINT"[155]   [221] 12345678901234567890";
  46. 490 PRINT"123456789012[221][155]  [155]   [221][155]    [221][155] ";
  47. 500 PRINT"  [221][155]   [221][155]   [221][155]   [221][155]   [221][155]   [221][155]  ";
  48. 510 PRINT" [221][221]  [155]   [221][155] [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  49. 520 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][221][155]     [221][155] ";
  50. 530 PRINT"[144]^[155]                        ";
  51. 540 PRINT"       [221][155]     [202][192][192][192][192][192][192][192][192][192][192][192]";
  52. 550 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][155]  ";
  53. 560 PRINT"                         ";
  54. 570 PRINT"                 [213][192][192][192][192][192][192][192]";
  55. 580 PRINT"[192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][155]  ";
  56. 590 PRINT"       [221]CURSOR TASTEN[221]REC";
  57. 600 PRINT"HTS/LINKS[155]   [221][155]       [155]  [221]& ";
  58. 610 PRINT"JOYSTICK   [221][155]             ";
  59. 620 PRINT"  [221][155]         [171][192][192][192][192][192][192][192][192][192][192][192][192]";
  60. 630 PRINT"[192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][155]       ";
  61. 640 PRINT"  [221]SPACE TASTE[155]  [221]SETZEN/L";
  62. 650 PRINT"OESCHEN[221][155]       [155]  [221]& FEUER";
  63. 660 PRINT" [155]     [221][155]               [221][155]  ";
  64. 670 PRINT"     [155]  [202][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192]";
  65. 680 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][203]            ";
  66. 690 RETURN
  67. 700 PRINT"[147][155][146]                         ";
  68. 710 PRINT"                 [213][192][192][192][192][192][192][192]";
  69. 720 PRINT"[192][192][192][192][192][192][192][192][192][192][201][155]   [155] [213][192][192][192][192][192][192][192][201][155] ";
  70. 730 PRINT"       [221][152][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  71. 740 PRINT"[221]  [155]  [221] SPIEL[155] [221][155]      [155]  [221][152][221]D";
  72. 750 PRINT"RUM MACHINE 64[152][221][221]  [155]  [221][155]    ";
  73. 760 PRINT"   [221][155]        [221][152][202][192][192][192][192][192][192][192][192][192][192][192]";
  74. 770 PRINT"[192][192][192][192][203][221][155]   [155] [221][155] MODUS[155] [221][155]      ";
  75. 780 PRINT"  [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]  [155]  ";
  76. 790 PRINT"[202][192][192][192][192][192][192][192][203][155]                ";
  77. 800 PRINT"                         ";
  78. 810 PRINT"       [155]                  ";
  79. 820 PRINT"                      [129][213][192][192]";
  80. 830 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  81. 840 PRINT"[192][192][192][192][192][192][192][201]  [155]  [129][221][155]          1[155] ";
  82. 850 PRINT"        2[155]         3[155]   [129][221][155]  ";
  83. 860 PRINT"  [129][221][155] 123456789012345678901";
  84. 870 PRINT"23456789012 [129][221]  [155]  [129][221][155]       ";
  85. 880 PRINT"                         ";
  86. 890 PRINT"  [129][221][155]    [129][221] [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  87. 900 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][155] [129][221][155]  [155]  [129][221][155]  ";
  88. 910 PRINT"  [129][221][155]   [129][221][155]   [129][221][155]   [129][221][155]   [129][221][155]   [129][221][155]  ";
  89. 920 PRINT" [129][221][155]   [129][221][155] [129][221][155]    [129][221][144]            ";
  90. 930 PRINT"                      [129][221][155]  ";
  91. 940 PRINT"  [129][202][192][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192]";
  92. 950 PRINT"[192][192][177][192][192][192][177][192][192][192][177][192][203][155] [129] [155]          ";
  93. 960 PRINT"                         ";
  94. 970 PRINT"         [144][213][192][192][192][192][192][192][192][192][192][192][192][192][192][201][155] ";
  95. 980 PRINT" [213][192][192][192][192][192][192][192][192][192][192][201]       [155]    [144][221]";
  96. 990 PRINT"* * * * * * *[144][221][155]  [221]F1 = END";
  97. 1000 PRINT"E [221][155]      [144] [155]    [144][221]CURSOR TAS";
  98. 1010 PRINT"TEN[144][221][155]  [171][192][192][192][192][192][192][192][192][192][192][179][155]       ";
  99. 1020 PRINT"    [144][171][192][192][192][192][192][192][192][192][192][192][192][192][192][179][155]  [221]F3 ";
  100. 1030 PRINT"=[155] MENUE[221]       [155]    [144][221]SCHNE";
  101. 1040 PRINT"LLER /[155]  [144][221][155]  [202][192][192][192][192][192][192][192][192][192][192][203][155]  ";
  102. 1050 PRINT"     [155]    [144][221]LANGSAMER[155]    [144][221][155] ";
  103. 1060 PRINT"                    [155]    [144][202]";
  104. 1070 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][203][155]           ";
  105. 1080 PRINT"                         ";
  106. 1090 RETURN
  107. 1100 PRINT"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192]";
  108. 1110 PRINT"[192][192][192][201][192][192][192][192][192][192][192][192][192][201] [221]1= SNARE ";
  109. 1120 PRINT"DRUM[221]5=  LOW-TOM[155]  [221]F1[146] MEN";
  110. 1130 PRINT"UE [221] [221]2=   AKZENT[155]  [221]6= HI";
  111. 1140 PRINT"HAT (ZU)[221]         [221] [221]3= B";
  112. 1150 PRINT"ASS  DRUM[221]7= HIHAT (OF)[221]F";
  113. 1160 PRINT"3[155][146] SEQ.  [221] [221]4=  HI-TOM[155]   [221]";
  114. 1170 PRINT"8=  BECKEN[155]   [221][155]         [221] ";
  115. 1180 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192]";
  116. 1190 PRINT"[192][192][192][203][192][192][192][192][192][192][192][192][192][203] [129][213][192][192][192][192][192][192][192][192][192]";
  117. 1200 PRINT"[192][192][192][192][192][144]1[129][192][192][192][192][192][192][192][192][192][144]2[129][192][192][192][192][192][192][192][192][192]";
  118. 1210 PRINT"[144]3[129][192][201][155]  [129][221][155]     [144]12345678901234";
  119. 1220 PRINT"567890123456789012[155] [144] [129][221][155]    ";
  120. 1230 PRINT"    [129][221][155]   [129][221]   [221]   [221]   [221]   [221]";
  121. 1240 PRINT"   [221]   [221][155]  [129][221](1)[155]  [215][215][215][215][215][215][215][215][215]";
  122. 1250 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][155]  ";
  123. 1260 PRINT"[129][221][155]        [129][221][155]   [129][221]   [221]   [221]   ";
  124. 1270 PRINT"[221]   [221]   [221]   [221]  [221](2)[155]  [215][215][215][215]";
  125. 1280 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  126. 1290 PRINT"[215][215][215][155]  [129][221][155]        [129][221][155]   [129][221]   [221]  ";
  127. 1300 PRINT" [221]   [221]   [221]   [221]   [221][155]  [129][221](3)[155] ";
  128. 1310 PRINT" [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  129. 1320 PRINT"[215][215][215][215][215][215][215][215][155]  [129][221][155]        [129][221][155]   [129][221] ";
  130. 1330 PRINT"  [221]   [221]   [221]   [221]   [221]   [221][155]  ";
  131. 1340 PRINT"[129][221](4)[155]  [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  132. 1350 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][155]  [129][221][155]        [129][221]";
  133. 1360 PRINT"[155]   [129][221]   [221]   [221]   [221]   [221]   [221] ";
  134. 1370 PRINT"  [221][155]  [129][221](5)[155]  [215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  135. 1380 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][155]  [129][221][155]    ";
  136. 1390 PRINT"    [129][221][155]   [129][221]   [221]   [221]   [221]   [221]";
  137. 1400 PRINT"   [221]   [221]  [221](6)[155]  [215][215][215][215][215][215][215][215][215]";
  138. 1410 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][155]  ";
  139. 1420 PRINT"[129][221][155]        [129][221][155]   [129][221]   [221]   [221]   ";
  140. 1430 PRINT"[221]   [221]   [221]   [221][155]  [129][221](7)[155]  [215][215][215][215]";
  141. 1440 PRINT"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  142. 1450 PRINT"[215][215][215][155]  [129][221][155]        [129][221][155]   [129][221]   [221]  ";
  143. 1460 PRINT" [221]   [221]   [221]   [221]   [221]  [221](8)[155] ";
  144. 1470 PRINT" [215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  145. 1480 PRINT"[215][215][215][215][215][215][215][215][155]  [129][202][192][192][192][192][192][192][192][192][177][192][192][192][177][192]";
  146. 1490 PRINT"[192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][203]";
  147. 1500 RETURN
  148. 1510 PRINT"[147][144][146]                         ";
  149. 1520 PRINT"                   [149] [144]     ";
  150. 1530 PRINT" [149][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][144]        ";
  151. 1540 PRINT"          [149] [144]     [149][221] [144][162][162][155] [144][172][162] [172]";
  152. 1550 PRINT"[155] [144][187][172][155]  [144][187][149][221][155]                 [144] ";
  153. 1560 PRINT"[155] [149] [144]  [155] [144] [149][221][155] [144][161][155] [144][191][161][146][162][190][161][155][146] [144][161][161][146][191][191][146][161][149][221][155]   ";
  154. 1570 PRINT"          [155]    [144]  [155] [149] [155] [144]  [149][221][155] [144][161][155] ";
  155. 1580 PRINT"[144][191][161][146] [161][161][155][146] [144][161][161][155][146]  [144][161][149][221][155]             ";
  156. 1590 PRINT"   [144]  [155]   [149] [144] [155] [149][221][155] [144][184][184][155] [144][188] [190][188][162][146][190][188][155]  ";
  157. 1600 PRINT"[144][190][149][221][155]                [149] [155]      ";
  158. 1610 PRINT" [149][221][155] MACHINE - 64[155] [149][221][155]        ";
  159. 1620 PRINT"     [155]    [149] [155]      [149][202][192][192][192][192][192][192][192][192]";
  160. 1630 PRINT"[192][192][192][192][192][192][203][155]                 [155] ";
  161. 1640 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  162. 1650 PRINT"[192][192][201][155]          [155]  [221][213][192][192][192][192][192][192][192][192]";
  163. 1660 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][221][155]       ";
  164. 1670 PRINT"   [155]  [221][221]F1[155] - LADEN/SPEICHE";
  165. 1680 PRINT"RN    [221][221][155]          [155]  [221][221][155]   ";
  166. 1690 PRINT"                     [221][221][155]  ";
  167. 1700 PRINT"[155]        [155]  [221][221]F3[155] - SEQUENZ ";
  168. 1710 PRINT"EINSTELLEN[155] [221][221][155]           [155] ";
  169. 1720 PRINT"[221][221][155]  [155]                     ";
  170. 1730 PRINT" [221][221][155]          [155]  [221][221]F5[155] - APS";
  171. 1740 PRINT"PIELEN          [221][221][155]       ";
  172. 1750 PRINT"   [155]  [221][221][155]                  ";
  173. 1760 PRINT"      [221][221][155]          [155]  [221][221]F7[155] ";
  174. 1770 PRINT"-[155] SCHAUTAFEL     [155]    [221][221][155]  ";
  175. 1780 PRINT"     [155]     [221][202][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  176. 1790 PRINT"[192][192][192][192][192][192][192][192][192][192][192][203][221][155]          [155]  ";
  177. 1800 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  178. 1810 PRINT"[192][192][203][155]                      ";
  179. 1820 PRINT"                         ";
  180. 1830 PRINT"                         ";
  181. 1840 PRINT"                         ";
  182. 1850 PRINT"                         ";
  183. 1860 PRINT"                [158]     [155]   [144]*";
  184. 1870 PRINT"[155] [144]BY DRUM-FREAK[155]  [144]*[155]    [144] [155]   ";
  185. 1880 PRINT"              *[155] THOMAS LA";
  186. 1890 PRINT"NGENS[144] *[144]   [144] [155]              ";
  187. 1900 RETURN
  188. 1910 PRINT"[147]        CASSETTENOPERATIONEN"
  189. 1920 PRINT"        [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  190. 1930 PRINT" WOLLEN SIE EINE DATEI LADEN ODER"
  191. 1940 PRINT" ABSPEICHERN ?"
  192. 1950 PRINT"    F1[146] = LADEN"
  193. 1960 PRINT"    F3[146] = SPEICHERN"
  194. 1970 GOSUB230
  195. 1980 IFA$="*"THEN160
  196. 1990 IFA$="[133]"THEN2180
  197. 2000 IFA$="[134]"THEN2020
  198. 2010 GOTO1970
  199. 2020 PRINT"[147]           DATEIEN SPEICHERN"
  200. 2030 PRINT"           [192][192][192][192][192][192][192][192][192][192][192][192][192]"
  201. 2040 PRINT" BITTE GEBEN SIE EINEN DATEINAMEN EIN"
  202. 2050 INPUTN$:IFLEN(N$)>10THENPRINT"ZU LANG!":PRINT"[145][145][145]";:GOTO2050
  203. 2060 IFN$="*"THEN160
  204. 2070 PRINT" SPULEN SIE DAS BAND AN DIE RICHTIGE"
  205. 2080 PRINT" STELLE UND DRUECKEN SIE DANN F1[146]"
  206. 2090 GOSUB230
  207. 2100 IFA$="*"THEN160
  208. 2110 IFA$<>"[133]"THEN2090
  209. 2120 OPEN1,1,1,N$
  210. 2130 PRINT#1,ZA
  211. 2140 FORH=1TOZA
  212. 2150 FORI=1TO32:PRINT#1,T(I,H):NEXT:NEXT
  213. 2160 CLOSE1
  214. 2170 GOTO160
  215. 2180 PRINT"[147]          DATEIEN LADEN"
  216. 2190 PRINT"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  217. 2200 PRINT" BITTE GEBEN SIE DEN DATEINAMEN EIN !"
  218. 2210 INPUTN$:IFLEN(N$)>10THENPRINT"ZU LANG":PRINT"[145][145][145]";:GOTO2210
  219. 2215 IFN$="*"THEN160
  220. 2220 PRINT" BITTE SPULEN SIE DAS BAND AN DIE "
  221. 2230 PRINT" RICHTIGE STELLE UND DRUECKEN SIE F1[146]"
  222. 2240 GOSUB230
  223. 2250 IFA$="*"THEN160
  224. 2260 IFA$<>"[133]"THEN2240
  225. 2270 OPEN1,1,0,N$
  226. 2280 INPUT#1,ZA
  227. 2290 FORH=1TOZA
  228. 2300 FORI=1TO32:INPUT#1,T(I,H):NEXT:NEXT
  229. 2310 CLOSE1:GOTO160
  230. 2320 END
  231. 2330 GOSUB 260
  232. 2340 PRINT"[147]  WELCHER TEIL DES SCHLAGZEUGS SOLL"
  233. 2350 PRINT"  EINGESTELLT WERDEN ?"
  234. 2360 PRINT"   F1 - SNARE DRUM"
  235. 2370 PRINT"   F2 - AKZENT(E)"
  236. 2380 PRINT"   F3 - BASS-DRUM"
  237. 2390 PRINT"   F4 - HI-HAT (ZU)"
  238. 2400 PRINT"   F5 - HI-HAT (OFFEN)"
  239. 2410 PRINT"   F6 - BECKEN"
  240. 2420 PRINT"   F7 - KLEINE TROMMEL"
  241. 2430 PRINT"   F8 - GROSSE TROMMEL"
  242. 2440 GOSUB230
  243. 2450 IFA$="[133]"THENI=0
  244. 2460 IFA$="[137]"THENI=1
  245. 2470 IFA$="[134]"THENI=2
  246. 2480 IFA$="[138]"THENI=5
  247. 2490 IFA$="[135]"THENI=6
  248. 2500 IFA$="[139]"THENI=7
  249. 2510 IFA$="[136]"THENI=3
  250. 2520 IFA$="[140]"THENI=4
  251. 2530 IFA$="*"THEN160
  252. 2540 PRINT" EINSTELLEN DER(DES) - "DR$(I)"
  253. 2550 [153]" IN ORDNUNG (J/N) ?"
  254. 2560 [141]230
  255. 2570 [139]A$[178]"J"[167]2590
  256. 2580 [137]2340
  257. 2590 [141]320:[129]H[178]1[164]32:[151]32767[170]H,T(H,Z):[130]
  258. 2600 [158]37457,2[174]I
  259. 2610 [143]EXT
  260. 2620 PO[178]1
  261. 2630 [161]A$:[139]A$[178]""[167]2730
  262. 2640 [139]A$[178]""[167]2760
  263. 2650 [139]A$[178]" "[167]2790
  264. 2660 A[178][194](56320):[139]A[178]119[167]2730
  265. 2670 [139]A[178]127[167]XX[178]0
  266. 2680 [139]A[178]123[167]2760
  267. 2690 [139]A[178]111[175][168]XX[178]1[167]2790
  268. 2700 [139]A$[178]"INPUT"[167]2340
  269. 2710 [139]A$[178]"DIM"[167]160
  270. 2720 [137]2630
  271. 2730 S[178]PO:PO[178]PO[170]1:[139]PO[177]32[167]PO[178]32:[137]2630
  272. 2740 [151]P1[170]S,32:[151]P1[170]PO,30:[151]P1[170]PO[170]FA,0
  273. 2750 [137]2630
  274. 2760 S[178]PO:PO[178]PO[171]1:[139]PO[179]1[167]PO[178]1:[137]2630
  275. 2770 [151]P1[170]S,32:[151]P1[170]PO,30:[151]P1[170]PO[170]FA,0
  276. 2780 [137]2630
  277. 2790 XX[178]1:S[178][194](P2[170]PO):[139]S[178]81[167]2830
  278. 2800 [151]P2[170]PO,81:[151]P2[170]PO[170]FA,2
  279. 2810 T(PO,Z)[178]T(PO,Z)[170]2[174]I
  280. 2820 [137]2630
  281. 2830 [151]P2[170]PO,87:[151]P2[170]PO[170]FA,5
  282. 2840 T(PO,Z)[178]T(PO,Z)[171]2[174]I
  283. 2850 [137]2630
  284. 2860 [153]"LOAD"
  285. 2870 [153]" SOLL EINE EINZELNE SEQUENZ ODER"
  286. 2880 [153]" MEHRERE HINTEREINANDERABGESPIELT"
  287. 2890 [153]" WERDEN ?  (E/M)"
  288. 2900 [141]230
  289. 2910 [139]A$[178]"E"[167]2950
  290. 2920 [139]A$[178]"M"[167]3180
  291. 2930 [139]A$[178]"*"[167]160
  292. 2940 [137]2900
  293. 2950 [153]"LOAD"
  294. 2960 [153]" WELCHE SEQUENZ SOLL GESPIELT WERDEN"
  295. 2970 [153]"(1)  DIE GERADE EDITIERT WURDE"
  296. 2980 [153]"(2)  EINE ANDERE"
  297. 2990 [141]230
  298. 3000 [139]A$[178]"1"[167]3070
  299. 3010 [139]A$[178]"2"[167]3030
  300. 3020 [137]2990
  301. 3030 [133]" WELCHE ";X$
  302. 3040 [139]X$[178]"*"[167]160
  303. 3050 X[178][197](X$):[139]X[179]1[176]X[177]ZA[167][153]"ONONON";:[137]3030
  304. 3060 Z[178]X
  305. 3070 [153]"LOAD EINEN MOMENT BITTE !"
  306. 3080 [129]H[178]1[164]32:[151]32767[170]H,T(H,Z):[130]
  307. 3090 [151]32768[170]32,255
  308. 3100 [141]700:[151]36998,65:[151]36999,65
  309. 3110 [151]37000,0:[151]37001,0
  310. 3120 [158]37065
  311. 3130 [141]230
  312. 3140 [139]A$[178]"LET"[167]3120
  313. 3150 [139]A$[178]"DIM"[167]160
  314. 3160 [139]A$[178]"READ"[167]3110
  315. 3170 [137]3130
  316. 3180 [153]"LOAD WELCHE SEQUENZEN SOLLEN HINTEREINANDER"
  317. 3190 [153]" GESPIELT WERDEN (NICHT MEHR ALS 8 !)"
  318. 3200 AA[178]1:QQ[178]32767
  319. 3210 [153]"";AA;".TE SEQUENZ NR. ";
  320. 3220 [133]SE$
  321. 3230 [139]SE$[178]"*"[167]160
  322. 3240 [139]SE$[178]""[167]3280
  323. 3250 SE(AA)[178][197](SE$):[139]SE(AA)[178]0[167]3280
  324. 3260 [139]SE(AA)[179]1[176]SE(AA)[177]100[167][153]"ONON";:[137]3210
  325. 3270 AA[178]AA[170]1:[139]AA[179]9[167]3210
  326. 3280 [153]"LOAD       EINEN MOMENT BITTE !!!"
  327. 3290 [129]H[178]1[164]AA[171]1
  328. 3300 [129]I[178]1[164]32:QQ[178]QQ[170]1:[151]QQ,T(I,SE(H)):[130]:[130]
  329. 3310 QQ[178]QQ[170]1:[151]QQ,255:[137]3100
  330. 3320 [137]3320
  331. 3330 [153]"LOAD  DARSTELLUNG FUER WELCHE STIMME ?"
  332. 3340 [153]" F1WAIT - DIE GERADE EDITIERTE"
  333. 3350 [153]" F3WAIT = EINE ANDERE"
  334. 3360 [141]230
  335. 3370 [139]A$[178]"INPUT"[167]X[178]Z:[137]3420
  336. 3375 [139]A$[178]"*"[167]160
  337. 3380 [139]A$[179][177]"DIM"[167]3360
  338. 3390 [133]"WELCHE ";X$:X[178][197](X$)
  339. 3400 [139]X$[178]"*"[167]160
  340. 3410 [139]X[179]1[176]X[177]100[167][153]"ONONON";:[137]3390
  341. 3420 [129]H[178]1[164]32:[151]32767[170]H,T(H,X):[130]
  342. 3430 [141]1100
  343. 3440 [158]37376
  344. 3450 [141]230
  345. 3460 [139]A$[178]"INPUT"[167]160
  346. 3470 [139]A$[178]"DIM"[167]2330
  347. 3475 [137]3450
  348. 3480 [131]* SNARE DRUM *,*   AKZENTE  *,* BASS  DRUM *,* KL. TROMMEL*
  349. 3490 [131]* GR. TROMMEL*,* HIHAT (ZU) *,* HIHAT (OF.)*,*   BECKEN   *
  350. 3500 [129]H[178]36864[164]37223:[135]A:[151]H,A:[130]
  351. 3510 [131]76,160,144,160,0,152,153,0,212,200,192,25,208,248,96,234,169,33,141
  352. 3520 [131]1,212,169,8,141,5,212,169,133,141,4,212,96,169,9,141,8,212,169,40
  353. 3530 [131]141,12,212,169,21,141,11,212,96,169,240,141,15,212,169,17,141,19
  354. 3540 [131]212,169,37,141,18,212,96,169,32,141,8,212,169,40,141,12,212,169,21
  355. 3550 [131]141,11,212,96,169,13,141,8,212,169,40,141,12,212,169,21,141,11,212
  356. 3560 [131]96,169,255,141,15,212,169,57,141,19,212,169,133,141,18,212,96,169
  357. 3570 [131]250,141,15,212,169,57,141,19,212,169,133,141,18,212,96,169,15,141
  358. 3580 [131]24,212,96,22,17,10,138,12,243,12,243,0,208,169,0,160,24,153,0,212
  359. 3590 [131]136,16,250,169,10,141,24,212,96,173,134,144,141,135,144,162,32,32
  360. 3600 [131]228,255,201,17,208,3,238,134,144,201,29,208,3,206,134,144,201,133
  361. 3610 [131]208,1,96,202,208,231,206,135,144,173,135,144,208,221,172,136,144
  362. 3620 [131]238,136,144,185,0,128,170,201,255,208,8,169,0,141,136,144,76,201
  363. 3630 [131]144,201,0,208,8,162,16,202,208,253,76,62,145,32,160,145,41,2,201
  364. 3640 [131]2,208,3,32,128,144,138,41,1,201,1,208,3,32,16,144,138,41,4,201,4
  365. 3650 [131]208,3,32,32,144,138,41,8,201,8,208,3,32,64,144,138,41,16,201,16,208
  366. 3660 [131]3,32,80,144,138,41,32,201,32,208,3,32,48,144,138,41,64,201,64,208
  367. 3670 [131]3,32,96,144,138,41,128,201,128,208,3,32,112,144,234,173,137,144,41
  368. 3680 [131]31,168,169,87,153,228,5,169,5,153,228,217,238,137,144,173,137,144
  369. 3690 [131]41,31,168,169,81,153,228,5,169,2,153,228,217,76,160,144,238,136,144
  370. 3700 [131]96
  371. 3710 [129]H[178]37376[164]37491:[135]A:[151]H,A:[130]
  372. 3720 [131]169,110,133,251,133,253,169,5,133,252,169,217,133,254,169,1,141,102
  373. 3730 [131]3,160,0,185,0,128,45,102,3,205,102,3,208,8,169,81,145,251,169,2,145
  374. 3740 [131]253,200,192,32,208,232,24,14,102,3,176,29,165,251,24,105,80,133,251
  375. 3750 [131]165,252,105,0,133,252,165,253,24,105,80,133,253,165,254,105,0,133
  376. 3760 [131]254,76,19,146,96,32,241,183,142,112,3,160,0,185,0,128,45,112,3,205
  377. 3770 [131]112,3,208,10,169,81,153,229,5,169,2,153,229,217,200,192,32,208,230
  378. 3780 [131]96
  379. 3790 [129]H[178]37217[164]37258:[135]A:[151]H,A:[130]
  380. 3800 [131]172,143,144,169,32,153,52,6,173,134,144,170,74,74,74,141,143,144
  381. 3810 [131]138,41,7,168,185,131,145,172,143,144,153,52,6,76,160,144,101,84,71
  382. 3820 [131]66,93,72,89,103
  383. 3830 [129]H[178]37280[164]37296:[135]A:[151]H,A:[130]
  384. 3840 [131]169,0,160,24,153,0,212,136,16,250,169,10,141,24,212,138,96
  385. 3850 [129]H[178]1[164]08:[129]I[178]1[164]32
  386. 3860 [135]T(I,H):[130]:[130]:ZA[178]08:[142]
  387. 3870 [131]6,0,32,4,1,0,32,4,4,0,36,4,1,8,40,4,2,4,32,4,1,0,36,0,4,0,32,0,33
  388. 3880 [131]16,48,0,4,4,4,4,1,4,4,4,0,4,4,4,1,0,0,4,4,0,4,0,1,4,0,0,4,0,4,0,1
  389. 3890 [131]1,1,0,5,5,5,5,5,0,5,5,5,5,5,0,0,0,0,0,5,5,5,5,0,5,5,0,5,0,5,0,5,0
  390. 3900 [131]5,5,4,0,32,4,1,0,32,4,4,0,32,4,1,4,32,4,4,0,32,4,1,0,32,4,4,0,32
  391. 3910 [131]4,1,4,32,4,68,0,0,0,33,0,0,32,68,0,0,0,33,0,0,32,68,0,0,0,33,0,0
  392. 3920 [131]32,68,0,0,0,33,0,0,32,35,0,0,0,1,0,1,0,99,0,0,0,12,0,32,0,14,0,0
  393. 3930 [131]0,1,0,0,0,80,0,0,0,20,0,0,0,44,0,32,0,72,0,36,0,40,0,36,0,72,0,36
  394. 3940 [131]0,44,0,32,0,72,0,36,0,40,0,36,0,72,0,36,0,1,0,1,1,65,0,8,0,1,0,1
  395. 3950 [131]0,65,0,16,0,1,0,1,1,65,0,8,0,1,0,1,0,80,0,16,0
  396.